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1-0 HOW TO EXECUTE THE COMPILER. 

PASCAL CRN BE INVOKED EITHER DIRECTLY! 

. RUN <UPL> PASCAL 
□r i r the Concise Command Lang urges 

. COMPILE (or .LOAD or . EXECUTE) FAUX 



WHEN YOU H R V E R FILE NAMED L J 7 AUX . P ASy IN YOUR DIRECTORY. 

Unfortunately? the locrl c d m m r n d TlTTJ e^ interpreter does not 

AUTOMATICALLY RECOGNIZE THE ".PAS" EXTENSION. YOU CAN EASILY 

"CUSTOMIZE" IT? HOWEl-'ER? WITH THE FOLLOWING COMMANDS * 




. CTEST SETNON <UPL> PASCAL DUT=REL 



This temporarily adds ".PAS" to the table of known extensions 

THAT THE COMMAND LINE INTERPRETER CONSULTS WHEN PROCESSING A 
COMPIL-CLASS COMMAND AND TELLS IT WHAT PROCESSOR TO INVOKE AND 
WHAT EXTENSION TO GH.-'E ITS OUTPUT FILE. THE ADDITION WILL GO 



AWAY WHEN YOU LOG OFFQjNLESS^rOU FOLLOW THE ABOl'E COMMAND WITH: 



CTEST M AKIN I 



This builds the temporary table of (k nown^xtens i ons into a file 

NAMED RPG..INI IN YOUR DIRECTORY. 1T5e COMMAND LINE INTERPRETER 

USES THIS FILE? IF IT EXISTS? TO INITIALIZE THE TABLE EACH TIME 
YOU LOG IN. 



2.0 HDI..J TO EXECUTE THE CROSS-REFERENCER. 

To CROSS"* REFERENCE AND REFORMAT YOUR PASCAL PROGRAM WITHOUT 
COMPILING IT? TYPE 

"! . RUN OJPL > CRDSS <core> 

? THE CROSS-REFERENCER WILL PROMPT FOR THE NAMES OF YOUR SOURCE? 

REFORMATTED SOURCE^ s AND CROSS-REFERENCE FILES. A <CORE> OF 50 

SUFFICES TO CROSS-REFERENCE THE. COMPILER? SMALLER PROGRAMS WILL 
NEED CORRESPONDINGLY LESS. l> ■ 
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3. REFERENCES. 

1. Jensen? K. ? and N. Wirth? Pascal User Mrnurl and Report 

<SECDND EDITIONS ? SPRINSER-VERLfi&J New Ydrkj 19 PS. This is 
THE DEFINING DOCUMENT FDR FhSCRL . 

2". <UPL> PASCAL. MAN. fl 55-page addendum to the rboi-'E document? 

DESCRIBING THE PDP-10 IMPLEMENTATION. SPOOL IT ON TTV PAPER 
WITHOUT HEADINGS FOR THE BEST APPEARANCE. 

3. Pascal News. fl quarterly publication of the Pascal Users" 
Group. Anyone can join? dues are $6 per year. Contact: 

Pascal Users"' Group? XRndy Nickel 
University Computer Center: 227 EH 
2 08 SE Union Street 
University of Minnesota 
Minneapolis? MN 55455 



4.0 LOCAL HDD I F I CRT I DNS . 

1. The CLOCK built-in function returns accumulated TRIJ-'s? in 
units of 10-4 TRU? rather than CPU milliseconds. 

£. The '"'P*** compiler option? which formerly was equivalent to 

II"? NON CAUSES A PAGE SKIP IN THE LISTING FILE AFTER THE 
LINE IN WHICH IT APPEARS. NOTE THAT? ACCORDING TO THE SYNTAX 
FOR COMPILER OPTIONS? THE P *'* MUST BE FOLLOWED BY + *' *? •'-**? 
OR A DIGIT? ALL OF WHICH ARE IGNORED- NOTE ALSO THAT PASCAL 
LISTINGS PRESERVE THE STRUCTURE OF SOURCE FILES WITH STANDARD 
LINE NUMBERS AND PAGE MARKS? AS PRODUCED BY ED I T 1 . 

3. The "*U" compiler option (and the 'XARIt*'* compiler switch) now 

ACCEPT AN OPTIONAL NUMERIC ARGUMENT. POSSIBLE FORMS ARE 2 
SWITCH OPTION COLUMNS READ 

CARD U+ 72 

NDCRRD U- 132 

CRRD:n Un n = -> 72 

< n <= 132 ~> n 
n > 132 ~> 132 

4. The RESET procedure normally has the effect of a rewind 

FOLLOWED BY A GET. If THE DEVICE IS TTY ? HOWEVER? THE GET IS 
SUPPRESSED AND INPUT OF A NULL LINE IS SIMULATED: AFTER THE 

RESET? EOF is FALSE? EDLN is TRUE:* and the buffer variable is 

A BLANK. 
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5.0 CHANGES INTRODUCED IN THE £2 MARCH 1979 VERSION. 
5, 1 Bug Fixes. 

Obscure bugs hai/e been fixed in MAX--MIN? NEW- "DISPOSE? and 
PACK. -'UNPACK. 

5.2 New Predeclared Routines. 

The fdlldwing built-in routines rpe now a</ailables 

1. FUNCTION DEC-DATEs INTEGER? returns the date in DEC 

STANDARD FORMAT S 

[< YEAR- 1964) +12 + «:>-ionth-1> ] +31 + (DflY-lJ . 

2. PROCEDURE SAVERANDDN <VRR Is INTEGER) 5 sets its argument to 

THE LAST RANDOM NUMBER (INTERPRETED AS AN INTEGER.:' THAT HAS 
BEEN GENERATED BY FUNCTION RANDOM. 

3. PROCEDURE SETRANDDM <I s INTEGER) 5 I must be a ndn-negath/e 
integer < £*-31. The starting value of the RANDOM function is 

SET TD 

I? IF I IS NONZERO 5 

ITS NORMAL STARTING »/ALUE ? IF I IS ZERO. 



5.3 Listing Format. 

1. Each error message now points to the frei/idus error message? 

IF ANY. 

2. The location counter is always listed? whether or not the 
code option is selected. 



t>.4 Case Error Checking. 

If the case selector i/alue matches no case label? no OTHERS s 

CLAUSE EXISTS? AND RUN-TIME CHECKING IS ENABLED? A RUN-TIME ERROR 

occurs. Formerly? there was always an implicit null OTHERS s 

CLAUSE. 



5 „ 5 Type Comp at ieili t y . 



TWO PACKED 
COMPONENTS 
ASSIGNMENTS 
OTHERWISE. 



ARRAY TYPES ARE 
OCCUPY THE SAME 
ARE DONE BY BLOCK 



NOW COMPATIBLE ONLY 
AMOUNT OF STORAGE. 
COPIES? THE RESULT 



IF THEIR 

Since array- 
is GARBAGE 
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6.0 NOTES ON FILE HANDLING. 

These notes attempt to clarify chapters £ and 4 of PASCAL. MAN. 
Pascal provides three levels of automatic opening and name 
substitutions 



6.1 PREDECL ARED FlLES. 

Your Pascal program effectively contains the following 
declaration: 

VflR INPUT? OUTPUT? TTY? TTYDUTPUT: TEXT? 

Thus you need not (and should not) declare these files 
explicitly. Note that the pseudo file variable TTY actually 

REFERS TO TWO FILES? ONE FOR INPUT AND ONE FOR OUTPUT? THE 

compiler translates output operations on tty to the same 
operation on ttydutput* which you never see. 

Your Pascal program effectively begins with the following 
statements: 

RESET <TTY> ? REWRITE <TTYDUTPUT> ? 

In addition? if the program has no parameters »;see beldn) ? THE 

FOLLOWING STATEMENTS ARE EFFECTIVELY PRESENT: 

RESET < INPUT) 5 REWRITE <DUTPUT> 5 

CThIS EXPLAINS WHY THE COMPILER? WHICH IS ITSELF A PASCAL PROGRAM 
WITH NO PARAMETERS? OPENS A NULL FILE NAMED OUTPUT IN YOUR 
DIRECTORY. > 



6.E Files Named In The Program Header. /r±J^ ^ ^ ^ ~ \^J0^ 

These files are hpt Automatically declared? ydu must 7 include a 
declaration for them « for examples 

PROGRAM EXAMPLE UNFILE*? 0UTFILE> ? 
... 

VflR INFILE? OUTFILE: FILE OF INTEGER? 

Pascal will? however? open these files for you at the same time 
it opens the frjedecl ared files? and' also allows you to specify 
the m b me of the _£ljr5ica l file with which the file variable is to 

BE ASSOCIATED. It' LOOKS FDR THIS INFORMATION IN THREE PLACES! IN 
THIS ORDERS 



1. A TEMPCORE FILE WHOSE NAME IS THE FIRST THREE CHARACTERS 
THE PROGRAM NAME <EXA IN OUR EXAMPLE) . 
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A DISK FILE WHOSE NRME IS THE FIRST SIX CHRRhCTERS OF THE 
PPOSRRM NRME WITH THE EXTENSION CMD CEXHMPL.CMD? IN OUR 

example) . 

The terminal? with prompts. In our exrmfl.es 



INFILh = Cyour response) 
□UTFILE = Cydur response) 



This means thrt your program can get its parameters from the 
command line interpreter j-ust as the compiler does,, 




NOTE 

R WORD DF WARNING- PASCAL DECIDES WHETHER TO OPEN THE 
FILE FOR READING OR WRITING PRESET OR REWRITE; 1 BY THE 
PRESENCE OR ABSENCE OF AN ASTERISK FOLLOWING THE FILE 
NAME IN THE PROGRAM HEADER. If YOU ACCIDENTALLY OMIT THE 

asterisk? Pascal will discard your input file without 

WARNING. 



All Other Files. 



If a file does 

OR TTYf AND 



NOT HAL-'E ONE OF THE "MAGIC" NAMES INPUT? OUTPUT? 
IS NDT NAMED IN THE PROGRAM HEADER? YOU MUST BOTH 



DECLARE IT AND OPEN IT EXPLIi 



NAME OF THE 
THE TIME OF 

RESETxRE WRITE. 



PHYSICAL FILE 
THE OPEN BY 



:itly. VOU 

WITH WHICH 
MEANS OF 



CAN STILL SPECIFY THE 
IT IS TO BE ASSOCIATED AT 
OPTIONAL PARAMETERS TO 



Finally? note that all three kinds of file variables can be 
reopened on the same or different physical files by subsequent 
calls to RESETS-REWRITE. 



-TYPE OJPL.:« PASCAL. MAN 
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Pascal can now be Invoiced either directly: 

— -RUN (UPL) PASCAL 
or via the Concise Command Language: 

.COMPILE (Or .LOAD or .EXECUTE) FAUX 
when you have a file named FAUX, pas in your directory, unfortunately, 
the local command line interpreter does not automatically recognize the 
",PAS" extension, you can easily "customize" it, however* with the 
following commands: 

-•CTEST SETNON (UPL)PASCAL OUTsREL 

This temporarily adds ".PaS" to the table of known extensions that the 
command line interpreter consults when Processing a COMPiL*class command 
and tells it what processor to invoke and what extension to give its 
output file. The addition will go away when you log off unless you 
follow the above command with: 

^»CTE5T MAKINI 

This builds the temporary table of Known extensions into a file named 

RPG.INI in your directoryt The command line interpreter uses this file, 

if it exists, to initialize the table each time y u loS in. 




Temporary restrictions, 
(none) 




Local peculiarities, 

- The CLOCK built-in function returns accumulated TRU f s , in units of 
10-. 4 tru# rather than CPU milliseconds, 

• The 'p» compiler option, which formerly was equivalent to »D', now 
causes a page skip in the listing file after the line in which it 
appears. Note that, according to the syntax for compiler options, 
the 'p* must be followed by »•', or a digit, all of which are 

ignored, wote also that Pascal listings preserve the structure of 
source files with standard line numbers and page marks* as produced 
by EDIT10, 

<• The compiler option (and the 'CARD' compiler switch) now accept 
an optional numeric argument. Possible forms are: 
switch option columns read 

CARD u+ 72 

NQCARD U- 132 

^CARD:n Un n = -> 72 

C < n <= 132 -> n 

n > 132 -> 132 



• The RESET orocedure normally has the effect ot a rewind followed by a 
GET, If the device is TTY, however, the GET is suppressed and input 
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of a null line is simulated! after the RESET, EOF is FALSE* EOLN is 
TRUE, and the buffer variable is a blanK, 



To cross-reference and reformat your Pascal program without compiling 
it: 

••RUN ( UPL ) CROSS 

The cross-ref erencer will prompt for the names of your source, 
reformatted source, and crOss*ref erence files, 



TV fi^ (hXPl) Pascal . mainI 
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Pref ace 



The PASCAL compilers for the DECSystem-10 were developed at the 
university of Hamburg, Germany, based on an early version of the 
transportable pASCAL-p compiler 14,5,63, Work still continues on 
improving this compiler with respect to efficiency, standardization 
and the addition of still missing or desirable language features 

This report is intended to familiarize the reader with the PASCAL 

dialect on the DECSystem-10, This descriptio n, refers to a 

DECsystem*10 compiler with the name pAsCAL that w'4 1^ accept ^TAWApD ^ 
^EP-SS©Spi>(and some features of PASCAL 6000-3,4) as defined by Wlrth in 
[2] as a subset. 

It should be noted that earlier compiler versions or special 
purpose, Load-and-Go PASCAL compilers might accept a modified PASCAL 
language not compatible with standard PASCAL and its extensions as 
accepted by this compiler. 

It is assumed that the reader has a basic knowledge about PASCAL, 

Within syntax definitions, terms enclosed in Ml" are optional and 
terms enclosed in H I3* W may appear zero or more times, The word "or" 
or a vertical bar "I" indicate alternative terms, 

This report evolved from a Pascal HeLP file originally written in 
German which has been translated into English by Burger [ill. This 
version has been completely reworked from the englisn version, we 
gratefully acknowledge the help of B.Gisch and H.Linde in editing 
this report. 
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1, Usage of the PASCAL Compiler 



1,1, How to use the Concise Command Language for PASCAL 

If the Installation has modified the DECSystem-10 concise Command 

Language (CCD handler (83 to detect the extension pas and activate 
the PASCAL compiler, one simply has to use the standard CCL 

commands. Options, a s described in Section 1,5,, may be appended 

according to the CCL conventions, These commands, called 
"COMPIL. class" commands, are defined as follows! 



<compil«class command> ;t = 



<command name> 
<compiler options> 
<command options> 
<optlon seguence> 
<option> 

<file description 



i : = 
> i = 

u = 

f ! s 



Examplet 



<command name> 
[<fiie name>a] 
<file descrlptlon> 
(a<file name>] 
t<comPiler optlons>) 
[<command options>J 
COMPILE or LOAD or EXECUTE 
(<option sequenced 
/<option seguence> ? .« 
<option> t/<option>J5) 
<identifier> tKunsigned integer>] 
t<device>|] <fllename> 
[,<extension>3 t<ppn>] 
t<prptection>] 



• if- 

)/LlST 



•COMPILE FILNAMC cODESIZeJ 1200/oEBUG 
.LOAD FILNAM( RUMCOREl 16/CODE )/CREF 
.EXECUTE FILNAM( FQRTIO/NOCHECK ) /COMPILE 



The so-called a- and ^-constructions (8 J are also supported, 

.COMPILE MAMFILaFILNAM ( EXTERN J/LIST 

generates relocatable output on NAMFIL.REL and a listing 
LPTlNAMFIL, 



on 



If SWITCH, CMD contains the line 



( CODESIZES1200/DEBUG/RUNCORE|20 ) 



the command 



.COMPILE FILNAM9SWITCH 
is equivalent to 



.COMPILE FILNAM( CODESIZEl 1200/DEBUG/RUNCORE: 20 ) 

Depending on the command the program is compiled and/or loadeo 
and/or executed, The program is compiled if the PAS-fiie has a 

younger creation date than the REL-file -if existent-, The 
compilation can be enforced with the COMPILE-option (refer to t,S t ), 
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The compiler is executed by 

,R PASCAL -RUAJ (UPL )pA:SrL- 

in this case the compiler will prompt the user at his terminal to 
provide file descriptions and compiler-options for source, list and 
relocatable object code files (refer to Section 2,1, or 5,7,9, for 
more detailed information), The file description has the following 
form: 

DEVICEl FILNAM^Jil? [PROJECT, PROGRAMMER] <PRQTECTION> 



The underlined parts may be omitted. They are^by default; 

DEVICE DSK 
(PROJECT, PROGRAMMER J own PPN 

<PROTECTIQN> installation default (usually <057>) 

The compiler-options may be appended to each of the following file 
descriptions according to the conventions described in Section 1,5,, 

EXamp 1 e | . ; ( , . A ^ 

,r pascal ~" ' 

OBJECT 9 t ilnam,rel/codesise jboo relocatable object 

LIST a f iinam,lst/code listing 

SOURCE ■ f ilnam,pas/nochecK/debug source file 

I* e,g, the fue description for OBJECT is defaulted, t&e compiler 
generates relocatable object eode on a file named OBJECT (refer to 
2,1, and 4,l t ), a listing is generated if either the LIST-, CODE- or 
CREF-option is specified or just a file description for LIST is 
provided. 



1,3, How to Run a PASCAL Program 



Compilation starts when the following message is output} 

PASCAL} FILNAM Kprogram name>i <entry>, ,,,] 

After successful compilation the following size information is 
output i 

HIGHSEGt U K + m WORD(S) 
LOWSEG I v K + n WORD(S) 

The first line denotes the core requirement for the high-segment 
(code) in K, the next line denotes the core requirement for the 
low-segment (data) in K, 
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If the compiler has generated relocatable code on FILNAM. rel# the 
program is loaded by 

•LOAD FILNAM, REL or .LOAD FILNAM 
An executable program is obtained by 

.SAVE FILNAM w 

after loading where w is the total core requirement for the program. 
It should be at least u ♦ v + 5, A sharable high-segment is obtained 
by 

.SSAVE FILNAM W 

SSAVE must not be used if the program has been compiled using the 
DEBUG-oPtion, 

Another way to provide the core requirement for a program is to 
compile it with the RUNCORE»option, The value of the option denotes 
the maximum core requirement for the low.seqment in K words. The 
value has to be v ♦ 2 at least, 

Example} 

.load fllnamt runcoreil6 )/eompile 
•ssave filnam 
■run filnam 

in this case the program itself allocates 16K for its low-segmen^) 
each time it is executed and the user need not to take care of the 
size of the high-segment , 

The program is executed by 

.RUN FILNAM 

Should more core be required than has been specified when saving or 
compiling the program, the command 

.RUN FILNAM n 

may be used where n stands for the larger core requirement, 

If several programs are linked together or it is necessary to get 
the correct size of low« and high-segment, the program(s) should be 
loaded with the MAP-option like 

.LOAD FILNAM jPROCl , PROC2, /SEARCH MYLIB [302 , 30 15 ] /MAP 

The "loader map" can be obtained by 

.PRINT <program name>,MAP 

After Inspection of the loader map one can specify w as the total' 3 **) 
site of the low-segment plus the total size of the high-segment Plus 
the core needed for stack and Heap, The value of the RUhiCQRE-option 
for later compilations can be evaluated as the total length of the 
low-segment plus the size of the heap. 
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1 t 4 t Lexical issues 



7 



1 w 



/ 

/ 

a... 



The PASCAL compiler accepts only a subset of the ASCII characters, 
namely the 64 characters with octal values from 40 to 137, 
Characters with octal codes between 140 and 177 (essentially the 
"lower case" characters) are eo&yerted to "upper case" by 
subtracting 40 octal from their .(codS! The TABulator-charaeter is 
expanded on Input from text«f iles^iro\ the appropriate number of 
blanks, Lines are ended by a Line-Feed, All other characters 
appearing in the input text are ignored (refer to 4,) t 

Next we shall describe language elements which use special 
characters. 

Comments are enclosed in (* and #), e.g.t 

(♦THIS IS A COMMENT*) 

Identifiers must differ over their first 10 characters, They may 
be written using the underline-character (which is sometimes printed 
as left-arrow) to improve readability* e,g,t 



NEW^NAME 

String»constants are character sequences enclosed In 
single-quotes* e,g,i 



•THIS IS A STRING* 



If a quote is to appear in the string it must be repeated* e,g,; 



♦ISN"T PASCAL FUN?' 



(PACKED) arrays of CHAR or subranges of CHAR are referred to as 
strings throughout this report. 

An INTEGER-constant is represented In octal form if it consists of 
octal digits followed by B, An INTEGER is represented in hexadecimal 
form if it consists of a " (i.e. double-quote) followed by 
hexadecimal digits, The following representations have the same 
valuej 



63 77B "3F /»\8 Oc 



A REAL-constant is defined as 

<real> :j= C<sign>)<number>tt<number>] (E [<sign>] <number>J 
<number> lt= <digit> t<digit>J* ■'■ — 

SET-constants are element lists enclosed in "(3% e,g,i 

t'A% • + •] or CI ( 151 

Subrange notation is allowed inside of SET-constants, e.g.; 



t»A' tt *Z', '0',,*9*) or ll t , 7, 12, ,171 
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SETs within a program may contain variables • compatible with the 
type of the SET elements • » etOtJ 

var'si SET OF CHAR» 
Cl CHARj 

S*Ib t*A' t ,'C», C, 
# t • 



1,5» Compiler Directives 



Compiler-options are written as comments and are designated as 
such by a '$'-character as the first character -o^the comment* e,g,i 

(*$T-, E+,D+,R15 the rest is comment #) 

ji 

An option is turned on if it is followed by and it Is turned off 
if it is followed by some options must be followed by an 

INTEGER, Options may alternatively be specified at translation 
time, either with the compile-, LOAD,, or EXECUTE-command or by 
appending the options to the file names If the compiler is executed 
directly (refer to 1,1-2,), Any compiler-option explicitly 

requested in the source-program overrides compiler-options provided 
at translation time. 



1,5ft • summary 



There are certain compiler-options which can only be specified at 
translation time. For these, no source.program switch is indicated, 

Other compiler-options -marked with (#)• have to be specified for 
the first time BEFORE the program heading, some of these -marked 
with (**)• cannot be reset anymore inside the program, 

in the following table the inverse option -if possible- is given 
below the positive option. The options are divided into three 
groups i 

(1) Compiler-options 

(2) "COMPlL-class" Command-options 

(3) Loader Command-options 
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Function 

Z 

I 

I 

•«.— .....Compiler-options — 
Llst object code as MACRO-10, 



Specification 

in source program 

I at translation 

I I time 

^....p.... ........ ... 

L+ ( CODE 

NQCODE 



Perform runtime tests, 

1) array indices 

2) assignments to subranges 

3) zero.dlvide 

4) arithmetic overflow 

5) variables in 
SET-constants 

6) input to file variables 
or variables of subrange 
types 

Enable debugging including 
Post-Mortem dump, t») 
p is accepted in addition to 
D to maintain compatibility 
with PASCAL 6000, 

Ail level-l procedures or 
functions of a program may be 
activated by other programs, 
Refer to 6, for detailed 
information, (»*) 

only the first 72 characters 
of a source program line are 
accepted for compilation 
(card format), (**) 

Maximum Ivumber^cfl instructions 
that may be\#enerated for the 
statement/part of a "main 
progamJJ^proeequre or 
function, (*#) 



Size of 
words 




-segment in K 



Enable FoRTRAn-I/o 
FORTRAN subroutines 



Highest register 
pass paramete 
t2, ,12], Externa 
must be co 
same val 



in e*t 



ernal 



4hat 



ed to 
with n in 
1 procedures 
with the 
s assumed 



L- 
T- 



D- 
P* 
P- 



E* 

Em 



U+ 
U- 



Sn 



Rn 



1 + 
I- 



xn 



Default 

I 

X 

I 



(^heck) 

NOCHECK 



(DEBUG; 
NODEBUG 



(extern j 

NOEXTERN 



CCARDJ 
NOCARD 



V RUNCOREitt} 



V fort xo 

N0F0RTI0 



REGISTERin 



off 



on 



Off l-^ 



Off - ; 



off - i 



(^CODESIZEinA nslOOO 



nsstatic eore 
requirement 
for total 
low-segment 



off 



n=6 



in the 4traTTr-progiram, (#*) 
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punetlon 

I 

I 

I 



Specification Default 

in source Program I 

I at translation 1 

I I time I 



Refer to 6,2, for more 
detailed Information 
about this option, (#«) 



Fn 



Compile and load. 
Compile, load and execute, 

ompile, 
Generate listing, 
^=r\Generate cross-reference list, 

••—-•«.«- "COMPIL -class" command-options 




FILEm 



NOLINK 

EXECUTE 
NOEXECUTE 

COMPILE 
NOCOMPILE 

( LIST 
N0LI5T 

CREF 
NOCREF 



Enforce compilation. 



\ 



Generate cross-reference list. 



^compile 

NOCpMPILE 



yCPEF 
NOCPEF 



•Loader command-options* 



Provide information about all 
programs loaded, 

Put a program library on top 
of the library search chain, 
(<lib> us «iie descriptions 



/map 

NOMAP 



nsl 

off -) 
off f- > 
on 

on ( ■ 
off 



depends on 
creation date 
of PEL- a n d 
PAS-file 



off f ) 



off 



SEARCH <llb> PASLIB and 
FORLIB 
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The Compiler-options h and (or P) can be used to selectively 
list object code resp a generate information for the DEBUG-system, 
Selective use ot options* however* is effective only if the option 
is not switched off before the End of a procedure or function 
(because the DEBUG information for a block is generated at the end 
of its statement part), 

Example} 



(•St,**) 
PROCEDURE Plf 



END (# PI #)» 

(#SL- MACFO-io code is output for Pi #) 



(♦SD*#) 
PROCEDURE P2f 



END (# P2 *)f 

(#$D- local variables of P2 may be investigated and 
breakpoints may be set in P2 *) 



PROCEDURE P3| 
t 

(*SD*#) 

BEGIN (* P3 *) 



END (# P3 #)| 

(*SD- only breakpoints may be s e t in P3 since 

the debug option remained off during analysis of 
the declaration part for this procedure *) 

t 



The L-option in the source code is effective only if a listing is 
requested (refer to 1,2,), 
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2, The Program Heading 

Every program consists of a heading and a biocic. The biocK 
contains a declaration part In which all objects local to the 
program are defined* and a statement part which specifies the 
actions to be executed upon these objectst 

<program> its <program headlng> <block> , 
<block> u* <label declaration part> 

<constant decl, part> 

<type decl, part> 

<varlable decl, part> 

<proeedure/f unction decl, part> 

<statement part> 

(for INlTPRDCEDURE-deciaration see 5,4,) 

The program heading gives the Program a name, This name is not 
significant inside the program, A program* h wever # is usually 
referred to by the name of the flle(s) containing the executable 
code (ShR- and LOW-file), if the program is compiled with the 
EXTERN-optlon, the names of all leyel-1 procedures and functions 
which are assigned to be called from other programs have to be 
listed after the program name. Notice that only six characters are 
significant for all these names. They must not contain 
'.♦•characters, The program heading also lists the program 

parameters through which the program communicates with lt^\ 
environment, ' 

<program headlng> n» program 

<program naroe> 

f#<proeedure or function name>i# 
C(<parameter> C»<parameter>3*)] ; 



2,1, substitution of the Program Parameters 

Possible parameters are files, A PASCAL file variable is 
implemented as a file In the DECsystem.10, These files exist outside 
the program (before or after execution on disk or tape) and can be 
made available to the program by two alternatives! 

(1) An external file ean be connected to a PASCAL file variable by 
use of the standard procedures RESET or REWRITE, These 
procedures allow to specify the properties of the external file 
(refer to 5,7,12,), 

(2) Another way is the substitution for the formal parameters 
specified in the program heading. 

Thus, a program parameter Is defined as followst 



<parameter> i:= <file varlable> or 

<file variable>* 
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These formal parameters -except INPUT and OUTPUT (TTY MUST^ SBI be 
specified), must be declared as files Inside the program. 
Every external file Is automatically "opened" when the program is 
started by the RUN-command, If the file Is to be "opened" only for 
Input* this has to be Indicated by appending an asterisk to the file 
parameter. However, the asterisk Itself does' : -'~lioT™c1flfftnut« any 
protection against writing on the file (by a subsequent rewrite). 
The substitution is performed by prompting the user for the external 
file specification for each file variable in the same sequence as 
specified in the program heading, 

Thus, it is not necessary to M open M these files inside the program 

With RESET or REWRITE, 

. , ■ / ' 

Examplet c 

Let FILNAM.PAS contain the following programs 

PROGRAM COMpARE w FILES( FILE1*> FILE2», OUTPUT )j 

VAR FlLEl, FILE2I FILE OF INTEGER J / n _ , 

END, 

Execution could start as follows: 
•run fllnam 

FILE1 s dskettest, pas [302,3015] 
FILE2 39 

OUTPUT b filnam,lst<333> 

■ • • 

EXIT 

If the request for a file description is defaulted with a 
Carriage-Return, it is assumed -in this case, that a file named 
FILE2 does already exist. This is quite analogous to RESET(FILE2) , 

Programs which only make use of the standard files input and 

OUTPUT may omit specification of the parameter list because INPUT 

and OUTPUT are automatically "opened" if the parameter ust is 
empty, Thus, 

PROGRAM ALPHA( INPUT*, OUTPUT ), 

is equivalent to 

PROGRAM ALPHA | 

All these files may still be re-defined by RESET or REWRITE -as 
mentioned under CD- later in the program. 
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2,2, Passing Parameters with CMD« and TEMPCQRE»f lies 



Another way to provide the actual program parameters is to create 
a file (TEXT.file only) named (xxxxXX^CMD where XXXXXX are the first 
6 characters of the program namr ; For the example above the file 
COMPAR,CMD could contain* 8 ^* tbUowing linei 

DSKBi TEST, PAS t302» 3015],, FILnAM,LST<057> 
No prompting is done now; 

•run filnam 

• • • 

EXIT 

At last* it is possible to pass the Information in a 
TEMPCORE»f lie (TEMPorary CORE file). These files are allocated in 
core storage and can be accessed/created without time-consuming disK 
reads/writes. In PASCAL, a file is assumed to be a TEMPCORE-f lie if 
it Is specified as 

DSK|XXX,TMP 

XXX are the first 3 characters of the program name (C0m,tmp in the 
example above), If a core file cannot be allocated, the disk file 

OSKtNNNXXX.TMP 

Is created where nnn is the "job number", so, if a TEMPCQRE-f He 
cannot be found in core, such a disk file is "looked up", 

Examples 

var'temporary^filei TEXTi 

REWRITE ( TEmPORARY*JIlE,'ABC TMP* )| 
WRITE( TEMPORARY J"ILE, ,,, 

RESETC TEMPORARY J-I^E )» 
WHILE NOT E0F( TEMPORARY JFILE ) DO 
BEGIN 

IF NOT E0LN( TEMPORARY.JH1E ) 
THEN READC TEMPORARY^FILE, ,,, 

• • • 

Notice that a temporary file is assigned to contain short 
information (e a g a pass program parameters to other programs called 
by CALL, refer to 5,7,10,) and cannot exceed 128 words or 640 ASCn 
characters (one DECSystem-10 disk block). 
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If a program is executed with the RUN-eommand# it will try to 
obtain its program parameters from either a TEMPCORE*f lie or a disK 
file with the extension CMD. The general input format for program 
parameters is listed below. 

CMD-file or TEMPCORE-filej 

Kfile deseription> t, <file description^*] 

TTYc 

[<file deseription>] 

If both flies do not exist, it prompts the user to enter the 
parameters directly at his terminal. 

This technique is used by the DECSystem-10 COMPIL-Program to pass 
parameters to the different compilers. 
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3, Labels 

/». 

Any executable statement in a program may be marked by prefixing 
It with a label followed by a colon, This label must be declared in 
the label declaration part before its use, 

<label declaration Part> LABEL <label> C#<label>] 7 

A label must be an unsigned iNTEGER-constant of at most 4 digits . 
The scope of a label i s the entire bloc* whe r ein it is declared, 
That Is, a statement o* the stateme n t»part t this bl elc may be 
prefixed with the label. This label may be referenced by 
GOTO-statements inside the same statement part or all other 
statement parts of procedures or functions declared inside this 
block, 



Example t 



t • ■ 



PROCEDURE PO; 
LABEL It, 12, 13f 



• ■ • 



I 
I 
I 
I 
I 
I 
I 
I 



PROCEDURE Plf 
LABEL 21) 
BEGIN C* PI •) 

• • • 

211 Pi) 

IF P THEN GOTO 11 
ELSE GOTO 21 

END*?* PI *)) 
BEGIN (# PO #) 

IF*Q THEN GOTO 21 
ELSE GOTO 12) 

• t • 

IF P 
THEN 
BEGIN 
121 R) 

■ t « 

END 

ELSE GOTO 13) 

WHILE S DO 
BEGIN 
131 T) 

t • t 

END) 
HI U) 

• t ■ 

END (» PO «)) 



(a) 
Cb) 



(c) 
(d) 



(e) 



I 
I 
I 
I 
I 
I 
1 
I 
I 



(♦wrong*) 
(♦wrong*) 



(♦wrong*) 



• 1 1 
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(a) This is a valid GOTO from an "inner" procedure of PO, The 
label 11 is defined (there is a statement prefixed with it) 
in its scope PO, such a construction provides an texitn from 
PI to PO, 

(b) In this case the GOTO refers to a label which is declared in 
the same block (PI), Execution of this GOTO involves 
recursive activation of pl> since the statement prefixed with 
LABEL 21 is a (recursive) procedurecall of PI, If in the n-th 
recursion step (a) is executed, the Stack: is reset as 
follows i 

Program Stack Stack Pointer 



PI <•-- before (a) 

n 



PI 

1 

PO <•-• after (a) 

1 



bottom 

(c) This GOTO is invalid because it references a label outside 
its declaration scope, 

(d»e) Of course it is not allowed tp jump into conditional (d) or 
any other structured (e) statement because the result could 
be undefined, 
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4, Input and Output 



Input and output is performed by the standard procedures GET* 
GETLN, put and PUTLN (for GETLN and PUTLN refer to 5,7,14-15,), 
Input and output to TEXT-flles (PACKED FILE OF CHAR) should be done 
with the standard Procedures READ, READLN, WRITE, WRITELN and PAGE 
as described i n "PASCAL • USER MANUAL AND REPORT" d,23. The latter 
is called "f ormatted"-l/o throughout this chapter. 

The DECSystem-10 mainly distinguishes tw ki n ds of data modes f r 
files, namely 

(1) ASCII-mode with five 7-bit characters Packed into one word 

(2) binary-mode with a til core-to-file mapping 

The following table Illustrates how PASCAL file types are 
implemented in the DECSystem.tOt 



File Type 



Packed 



Unpacked 



Subrange of CHAR or 
CHAR 



subrange 
ASCII 



other 



of ASCII or 



ASCII-mode, 
"upper case", 
f ormatted»i/o, 
linenumbers and 
pagemarks 

ASCII-mode, 

complete 7-blt-ASCII, 

standard. I/O 

treated as unpacked 



binary»mode, 
subrange as specified 
in file declaration 
standard»i/0 



as above 



binary-mode, 
standard-l/O 



During input from TEXT-files (PACKED FILE OF CHAR or subrange of 
CHAR) all characters less than ' ' -except LF and ht- are ignored 
and all characters greater than * m * are converted to "upper case" as 
fOllOWSl UPPfiR^CHAR to CHR( 0RD( INPUT^CHAR ) - 40B )> 



HT (TAB) is expanded to the appropriate number 
marks the end of a line (sets EOLN to TRUE), 



of blanks and LF 



4,1, standard Files 



The standard files INPUT, OUTPUT and TTY as all the files 
specified as program parameters in the program heading can be used 
directly for input and output without having to "open" them by use 
of RESET or REWRITE. All file variables are assigned by default to 
the external file ^ 

DSKI XXXXXX.YYY 

where xxxxxx are the first 6 characters of the file identifier and 
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YYY are the next 3 characters of It, Blanks are used if there are 
not enough characters. 

Example^ File identifier Default Assignation 



INPUT DSK| INPUT 

OUTPUT DSKi OUTPUT 

TTY TTY| TTY 

AUSGABE DSKj AUSGAB.E 



4,2, Formatted Input/output 



TEXT-flles (PACKED FILE OF CHAR) can be accessed, as any other 
file, by the standard procedures get and put. This is of course 
quite cumbersome as these procedures are defined for single 
character manipulation, The procedures READ and write imply a set 
of transformation routines which are designed to recognize the 
pattern of e.g. an INTEGER., REAL*, BOOLEAN., set. or 
string-constant in the "TEXT" and to convert it into the 
installation dependent internal representation, resp, to transform 
the internal representation into an appropriate text. 



4,2,1, Formatted input 



The procedures READ and READLN have non-standard parameter lists. 
If the first parameter is a file identifier! input is done from the 
external file currently assigned to this file variable, otherwise 
INPUT is assumed. The number of parameters is unlimited. They must 
obey the restrictions on VAR»parameters# especially they must not be 
constants or elements of packed data structures, The following 
types of variables are accepted! 



Type Restriction 



INTEGER -MAXInT <« value <a MAXlNT 

REAL SMALLREAL <s ABS( va^ue ) <s MAXREAL 

CHAR none 

ASCII none 

BOOLEAN TRUE or FALSE 

scalar type must be declared inside the program * '° 

subrange FlRST(parameter) <■ value <s LAST(parameter) 

string must be a correct string-constant (refer to 1,4,) 

SET must be a correct SET-constant (refer to 1,4,) 



Example i PROGRAM READER! 

type z a (eins,zwei,dredj 

VAR R| -13,34,, 13, 34f 

S» Zf 

Tt SET OF Zj 
BEGIN 

READ( T, R, S)f 
■ ft 

end. 
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If the file assigned to INPUT contains 

U 15,0 BINS or tElNS f ZWEU 13,0 ALPHA ^) 
the following error message is given before termination! 

%? INPUT ERROR} SCALAR UNDEFINED OR OUT OF RANGE 
##• 1,5000000000E*01 *** AT USER PC ,,, 

resp, 

%? INPUT ERROR| SCALAR UNDEFINED OR OUT OF RANGE 
#♦# ALPHA ### AT USER PC . 

The following Input Is correct I 

CEINS,,DREI) 13,0 ZWEI 



4,2,2, Formatted Output 



If the first parameter to write or writeln is not a file 
Identifier, OUTPUT is assumed. The number of parameters for write 
and writeln is unlimited. Expressions of various types might be 
specified, The parameters to WRITE and writeln may be followed by a 
"format specification", A parameter with format has one of thr" 
following forms t 

X I El 
X I El i E2 
X I El | 
X I El t H 

El is called the field width, it must be an expression of type 
INTEGER yielding a non*negative value. For SETs the field width 
applies to the SET elements. If no format is given, the default 
value for El is for type 



INTEGER 12 

BOOLEAN 6 

CHAR 1 

ASCII 1 

REAL 16 

-ALFA 10 

scaiar to 

string the length of the string 

SET the default field width of the SET element type 
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Blanks precede the value to be printed if the field width is 
larger than necessary to print the value. Depending on the type 
involved the following is printed if the field width is smaller than 
necessary to print the valuei 

INTEGER El asterisks 

REAL El asterisks 

BOOLEAN T or F preceded by the appropriate number of 

blanks 

SET the default action for the SET element type is 

performed 

string the leftmost characters fitting the field width 

scalar same as string 

Example; 

WRITELNC MAXINTll, C10, 203*1 )| 
produces the following output t 
«C«,»] 

in the following examples, colons usually stand for blanks. 

No characters are printed if the field width is 0, The minimal 
field width for values of type real is a, 

Examples 

WRITELN(»STR';4, 'STR', »STR»l2, •12,0110)1 

WRITELN< ['A* tt »Z',»l' tt »V, J, t'A«,«B','C')l5)t 

WRITELNC1S19* TRUE, FALSE! 4, 'X'J3)| 

The following character sequence will be printed! 

ISTRSTRST-1 .200E+01 

C'*'»M',.'9','A',.'Z'» %*Hl! # A' tt l!»C'] 
I!!M!!15||TRUE!S!F!!X 

A value of type REAL can be printed as a fixed point number If the 
format with expression E2 is used, e2 must be of type INTEGER and 
yield a non-negative value, It specifies the number of digits 
following the decimal point. There must be enough room for the 
fractional part* otherwise asterisks will be Printed, 

Example! 

WRITEU,23l5l2# 1 .231411, 1 ,23:610. 1 ,23 J 4 » 3 ) > 

Th« following Character sequence win be printed! 

1 1 ,23s i f 2t : : : 1 ,»»•* 

A value of type INTEGER can be printed in octal representation if 
the format with letter is used. The octal representation consists 
of 12 digits, it the field width is smaller than 12, the rightmost 
digits are used to fill the field width. It the field width is 
larger than 12, the appropriate number of blanks precedes the 
digits. 
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Example j 

WRITE(12345Bl2lO, 12345Bl6:0, 12345B! 15 10) f * 
The following character seque n ce will be printed! 
45012345 111 00000001 2345 

A value of type INTEGER can also be printed in hexadecimal 
representation if the format with letter H is used. The hexadecimal 
representation consists of 9 digits, using the format with letter H 
the following character sequence will be printed for the example 
above! 

E50014E5H I { U0000014E5 



4,3, The use of Printer Control Characters 



in some installations the first character of each line is used as 
a printer control character when a text tile is send to the printer, 
The first character is not printed but instead interpreted as 
controlling the paper feed mechanism of the printer. The following 
(FORTRAN.) conventions are in vide use [9]; 



Character 


ASCII 


Action before Printing 


# t 


LF 


skip to next line, 






form feed after 60 lines 




LF»LF 


skip one line 


•i' 


FF 


go to top of next page 


•2' 


OLE 


space 1/2 of a page 




VT 


space 1/3 of a page 






overprint the line 




DCS 


skip to next line* 






no form feed 




LF,LF,LF 


skip two lines 




DC4 


space 1/6 of a page 


t 


DC2 


triple space, 






form feed after 20 lines 


•f 9 


DC1 


double space, 



form feed after 30 lines 

A file containing such control characters must be printed with the 
following commands 

.PRINT <file deserlPtlon> /FILE l FORTRAN 

Examples 

WRITELN('l'# # OVER')f 
WRlTELN('+», • PRINT* ) | 

The following output will be printed on the first line of the 
next page! 



OVERPRINT 
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5, Extension to STANDARD PASCAL 



5,1 a Standard Constants 



The INTEGER constants MININT and MAXINT are defined as 

CONST MININT a 400000000000B (# •34,359,738.368 *)f 
MAXINT a 3777777777778 <# ♦34,359,738,367 ♦)? 

They represent the smallest and greatest INTEGER in the 
DECSystem*10, 

The real constants maxrEAL and smalLrEAL are defined asi 

CONST MAXREAL a 1 ,70141 18432E+38 1 
SMALLREAL a j , 46936801 07E»39 J 

They represent the absolutely smallest and greatest REAL in the 
DECSystem»10, 

The ASCII constants NUL,,sp and del (ASCII mnemonics for special 
control characters) are primarily intended to ease special 
I/O«operations, 

Examplei WRITE(TTY,BEL) instead of WRITE(TTY,CHR(07B) ) 

They do not belong to the PASCAL character set (the type CHAR) 
which is only a subset of the ASCII character set (refer to 8,5,), 



5,2, Standard Types 



The type ASCII represents the total 7-bit-ASCll character set. 
It is a superset of CHAR, 

TYPE ASCII a NUL..DEL} 
CHAR a • t 

Thus, ASCII and CHAR are type-compatible and assignments from CHAR 
to ASCII and reverse are legal provided only values belonging to 
the subrange CHAR are assigned to a variable of that type, Refer to 
4, and 9,l,(e) for closer information about SETS and files of ASCII, 

Examplei ,,, 

VAP Al PACKED FILE OF ASCIIf 
ASCI ASCI If 

WHILE NOT ( EOF(A) OR (A*sLF) ) DO 
BEGIN 

A5C is A*| GET(A) ; P(ASC)j 
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5,3, Standard Piles 



in addition to the standard TEXT-files INPUT and OUTPUT tht 
standard TEXT-ftle TTY is available in DECsystem-lo pascal , This 
file is used to communicate with the terminal. The first parameter 
of the standard I/O-Proeedures must be TTY if they are to be applied 
to this file, 

TTY is "opened" at the beginning of the program. An asterisk is 
typed out on the terminal to indicate that input is expected (to 
assign a value to TTY"), If the program does not need any input from 
the terminal, a Carriage-Return should be entered, 

TTY should only be a parameter to the standard procedures GET* 
GETLN, PUT, PUTLN# READ, READLN, WRITE, WRITELN, PAGE, BREAK, 
GETFILEName and GETSTATUS, It must not be used as an actual 
parameter . (VAR»parameter) of type TEXT to either declared procedures 
and functions. 

Example! ,,, 

VAP CH| CHAR) 

Ch'Js TTY*f GET( TTY* )).,,)TTY* is »A') PUT( TTY* )) 
••• 

The standard procedure BREAK (refer to 5,7,13.) is provided in 
order to force the output to the terminal even if the interna*" 
buffer is not yet full. 



5,4, The INITPROCEDURE 



Variables of typ 
declared in the oute 
an INITPROCEDURE, 
assignment statement 
be constants, INI 
blocic prior to the 
executable body, 
ONLY possible if the 

The definition of 



e scalar, subrange, pointer, ARRAY or RECORD 
rmost block of a program may be initialized by 

The body of an INITPROCEDURE contains only 
s, indices as well as the assigned values must 
TPROCEDUREs can be defined only in the outermost 
first procedure or function definition with 
Assignment to components of packed structures is 

components occupy a full word, 
the INITPROCEDURE is as follows! 



<bloctc> 

declaration part> 



<init part> 
<lnltprocedure> 



Its declaration part> 

<statement part> 
:j= <iabei deci, part> 

<constant decl, part> 

<type decl, part> 

<variable decl, part> 

<init part> 

<procedure/f unction deci, part> 
us (<initprocedure>]« 
lis INITPROCEDURE) \ 
BEGIN 

<asslgnments> 
END) 
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5,5, The Extended CASE Statement 



The CASE statement may be extended with the case OTHERS which then 
must appear as the last case In the CAsE statement. The statement 
associated with OTHERS will be executed if the expression of the 
CASE statement does not evaluate to one of the explicitly given case 
labels. 

Examples 

PROGRAM CASES} 
VAR Xj CHAP) 

• ft 

BEGIN 

CASE X OF 

*A»| PCX)) 
*B») Q(X)t 

OTHERS I Z(X) 

END) 

t • • 

END, 



5,6, The LOOP Statement 



The LOOP statement is an additional control statement which 
combines the effects of the WHILE and the REPEAT statement. 

The LOOP statement Is defined as follows) 

<loop statement> u = LOOP 

<statement part> 
EXIT IF <expresslon>) 

<statement part> 
END 

<state m ent part> tl a <state m ent> £}<state m e n t>J » 



The expression must result in a Boolean value. 
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5,7, Standard Procedures and Functions 

In output examples, colons stand for blanks throughout this, 
Chapter, 

5,7,1, PACK and UNPACK 

in addition to the first three parameters for these procedures 
•described in [1$ 2]- two more optional parameters may be specified 
for PACK and UnPACk» namely to Indicate where In the packed array 
the transfer should begin and how many items should be Packed or 
unpacked, 

PACKCA, I, Z [, J I, LI 35 is equivalent to 

for k ta to do ZC J ♦ k J SB At I + k ) j 

UNPACK(Z, A, I t, J t, L] 1) is equivalent to 
for k is o to L»l do At I + k ] is ZI J + k 3 t 

where the- default values are 

J s LOWERBOUND( Z ) and ^ 
La i ♦ MIN( UPPBRBOUNDC Z ) - J# UPPERBOUND( A ) • I ) ' 



5,7,2, DATE and TIME 



The procedure 

DATEC <alfa variabie> ) 

assigns the current date in the 
which must be of type ALFA, 

The procedure 

TIME( <alfa variable) ) 

assigns the daytime in the 
which must be of type ALFA, 



format »dd»mmm»yy * to the parameter 



format 'hhtmmiss ' to the parameter 



5,7,3, CLOCK and REALTIME 

The function CLOCK returns the elapsed CPU time in msec and the 

function REALTIME returns the current time in msec. Both the 

functions have an INTEGER result type. 
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5,7,4, FIRST and LAST 



The functions 

FIRSTC <variable> ) and 
LAST C <variable> ) 

return the lowest resp, the highest value of the (installation 
dependent) range of the variable type, The result type of these 
functions depends on the type of the parameter, variables of any 
scalar type -except real- are accepted, 

Example i PROGRAM SUBRANGE* 

TYPE SCAL « (EINS,ZWEI,DREI,VIER) , 
VAR U INTEGER) Sit 0..15; 

Ct CHAR j SCl 'A',,«Z«> 

St SCALf SSt ZWEI,,DREI; 
BEGIN 

WRITE( FIRST(C)» LASTfl) J 12lO# LAST(S)|5, 

FIRST(SI), LAST(SC)j2, FIRST(SS)tlO )? 

end, 

The following output is produced by this program! 
1377777777777 tVIERltt J t i : t t t tOtZt t t t t tZWEI 



5,7,5, LOWERBOUNO and UPPERBOUND 



The functions 

LOWEPBOUNDC <array variable> ) and 
UPPERBOUNDC <array variable> ) 

return the lowest resp, the highest value of the range of the index 
type of the array, The result type depends on the index type. 

Example t PROGRAM BOUNDS t 

TYPE FARBE a (RED, YELLOW, GREEN) , 

VAR FELDt ARRAY t 'A»,,*Z', YELLOW, , GREEN, 10tt50 ] OF CHAFj 
BEGIN 

WRITEC LOWERBOUNDC FElD )t2# 

UPPERBOUNDC FELD C 'A' ] )|6, 
LOWERBOUNDC FELDC *X' f YELLOW ) ):3 )| 

1 1 1 

END, 

The following output is produced! 



I A! GREEN! 10 
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* 



5,7,6. MIN and MAX 



The functions 



MIM( <©xpression>, <expression> £,<expression>] * ) 
MAX( <expression>, <expression> t,<expression>]» ) 

return the minimum reap, the maximum of the expression list, UP to 
72 expressions may be specified. Expressions of any scalar type 
•exeept BOOLEAN* are accepted, integer and real may be mixed. If so, 
the iNTEGER-expressions are converted to real. The result type 
depends on the type o* the expressions. 



Examples 

PROGRAM MINMAXf 

TYPE SCAL a (KIND, VATER, MUTTER, 0PA,0MA) t 
VAR Cf CHAR; It INTEGER} R| REAL) S{ SCALf 
BEGIN 

s'Ja VATER| C |a 'X»| I |» 15r R |» 13.4E4* 
WRITE( MIN(S, MUTTER), 

MAX(C,'+')l2, 

MIN(I,3)I2, 

MAX(13,o,I,R)l9 )j 

• 1 1 

END, 

The following is printed! 
VATER|Xl3Ht34E+05 



5,7,7, NEW and DISPOSE 



The procedures NEW and DISPOSE have the following parameter list, 

( <pointer varlable> £,<tagfield constants* 

tt<integer expression^ ) 

NEW allocates variables in the heap. The address of the newxy 
allocated variable is assigned to <polnter varlable>, if the first 
argument Is pointing to a record with variant parts, the tagfieid 
constants specifying the desired record variant may be set. In this 
case core win be reserved exactly as required for this record 
variant, (Later assignments to this record must correspond to the 
variant reserved, otherwise the heap may be overwritten in difficult 
to detect cases ), If the last component is an array, the "actual" 
size of the array (the number of components required for this 
reservation) may be appended • preceeded by a colon • to the last 
tagf ieid»constant , 

/» 

The corresponding de-allocation of the variable by DISPOSE must 
have the IDENTICAL parameter list. If the pointer is undefined or 
out of the heap, an appropriate error message (refer to 8,4,) is 
output before program termination. 
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Examplej 



CONST MAX„DIM = 1000? 
TYPE PTR a *REC 

REC s RECORD 

CASE INTEGER OF 
It ( CASE CHAR OF 

•A # | ( FIELDI ARRAY 1 1 , .MAX^IM] OF REAL ))j 

t 

end'c#rec#)i 
var* ptr w var| ptr | 

NEW( PTR^VAR, 1, 'A'l 200 )| (# occupies 200 words #) 
t • t 



DISPOSEC PTR^VAR, 1, 'A't 200 )f 



in 



The Heap Is organised like the stack, Thus, on DISPOSE, all 
variables allocated later than the disposed one are deallocated 
too. 

Heap Heap Pointer 



V <- before DISPOSEC V ) 
h 1 

• 

t 

V 

1 

V <• after DISP0SE( V ) 
1 

• 

bottom 



5,7,8, TRUNC* ROUND and EXPO 

The function 

TRUNCC <real or integer expression> ) 

returns the greatest INTEGER less than or equal to the argument. 

Examples! 

TRUNC( -13,35) is -14 
TRUNCC +13.35) is *13 
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The function 

BOUND( <real or Integer expression ) ^ 

returns the INTEGER nearest to the argument! 

ROUND(E) |s TRUNC(E*0,5)f 

Examples! ROUND ( -0,5 ) is 
R0UND( +0,5 ) is +1 

The function 

EXPQC <real or integer expresslon> ) 

returns the INTEGER exponent of the floating point representation of 
the argument, EXpO is defined ast 

expo its trunc(id(abs(<reai or integer eXpr e ssion>) ) ) ♦ 1 

Examples! EXPoC -13.78E-22 ) is "69 
EXPO( tl,38E15 ) IS Si 
EXP0( 1 ) is J 

EXP0( ) is 



5,7,9, OPTION and GETOPTION ^ 

The function 

OPTlONt <alfa variable or alfa constant> ) 

returns the value TRUE if the option indicated by the argument has 
been specified by the user during program initialization 
(substitution of the program parameters, refer to 2, and 5,7,io.)> 
otherwise false is returned, 

Example! 

Let FILNAM.PA5 contain the following program: 

PROGRAM DECIDER ( INPUT*, OUTPUT )f 

IF*0PTI0N( # STEP2 *) 
THEN P 
ELSE Qf 
tit 

If the program parameters are entered like 

,run filnam ^ 
INPUT s datatl00,100]/step2 
OUTPUT s dskC|out,dat<055> 

P will be executed. 
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The procedure 

GETQPTION(<alf a constant or variable>,<integer varlabie>) 

can be used to "read" options qualified by numerical attributes. The 
value of the option is assigned to the INTEGER variable (second 
parameter) , 

Examples 

Let FILNAM.PAS contain! 

program chooser ( input* )» 
var choosei integer? 

if'optionc'type •) 

THEN 
BEGIN 

GETOPTIONC'TYPE *, CHOOSE) f 

CASE CHOOSE OF 

01 P(CHOOSE)! 
1 1 1 

end 

ENDf 
t • • 

If the program parameter is entered nice 

,run filnam 
input » /typeio 

P(O) will be executed. 



5,7,10, HALT and CALL 



The procedure 
HALT 

allows to enter the DEBUG-system from any statement of a program, if 
the program l s not compiled with the DEBUG-oPtion* a HALT-lnstruction 
(81 is executed. The DEBUG-system outputs the message 

SSTOP BY HALT IN <program name> 

8ST0P IN <llne>t<iine> 

$ 

The procedure 

CALL(<file name and extensions [, <device> C#<ppn>C , <core>] J J ) 

enables the Pascal programmer to start the execution of another 
(main) Program, This must not be confounded with activating a 
procedure or function. The execution of the current program is 
terminated and all variables local to this program are lost, 
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Execution of CALL has the same effect as Issuing a RUN.command on the 
called program. There Is no return to the calling program other than 
Issuing a CALL for It In the called program. Notice that executio^ 
then will start again at the beginning of the program, only the first 
parameter Is mandatory. 

The parameters are used as follows! 

<file name and extenslon> 



This parameter must be « type PACKED ARRAY t l , ,91 OF CHAR, 
It denotes the file containing the executable code of the 
program to be called. The first 6 characters represent the 
filename and the last 3 characters the extension. If the 
latter are blanks, SAV (resp, ShR or HGH and LOW) is assumed 
(usual case), i\ r\ j 



The parameter must be of type PACKED ARRAYC1,.6] OF CHAR, 
If it Is omitted, 'SYS ♦ is assumed. 



Refer to 5,7,12, for this parameter. If <devlce> is 
specified as 'SYS <ppn> must be or defaulted, 



This parameter has to be of type INTEGER, It specifies the 
amount of core for the low-segment of the called program In K 
words, 





<ppn> 



<core> 
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ExamPiet 



If"oPTION('CREF •) 
THEM CALLCCROSS ','SY5 »,0#20)f 
1 1 • 

Temporary core files can be used to pass parameters to called 
programs (refer to 2,2,), 

Example! 

PROGRAM ONEf 

REWR1TE(0UTPUT,»TW0 TMP*)| 

WRITE( 'DATEN /RESTART • ) > (• here creating file TWO.TMP ♦) 

REWRITE(OUTPUT, 'OATEN ')| 

write(,,, (# here creating file daten *) 

CALLCTWO ','DSKD », 222002000B, 20) j 

END, 

PROGRAM TWO( INPUT# )| 
t • • 

READ ( , , , (* here reading file daten ♦) 
IF*OPTION( 'RESTART ') 

THEN CALL( 'ONE S'DSKE • # 302003015B, 10) > 

END*(# TWO #), 
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5,7,11, GETFILENAME and GETSTATUS 
The procedure 

GETFILENAMEC <flie variables <file name and extensions 
<protection>, <project*programmer number>, 
<devlee mnemonio, <alfa variable or eonstant> ) 

has 6 mandatory parameters , 

GETFILENAME reads a DECSystem-10 file description ( a s described 
under 1.2,) from the external file assigned to <file varlable> and 
assigns approplate values to the following four (var«) parameters 
(refer to 5,7,12,), The format used for the file description is the 
same as used by the DECSystem«10 Concise Command Language and for 
program parameters. The first para m eter to GETFILENAME must be a 
TEXT-file which has already been "opened" for input. 

If <device> is *TTY the user is prompted with 

XXXXXXXXXXs 

to enter the file description where XXXXXXXXXX is the string 
provided by the sixth parameter. Notice that a 
Carriage. Return/Line„Feed terminates the file description, 



The procedure 



GETSTaTUSC <flle variable^ <flie name and extensions 
<prot*ction>> <project»programmer numbers 
<device mnemonio ) 



can be used to assign appropriate values from the 
"file control block" of <file variable> to the other parameters 
(refer to 5,7,12,), 

Example | if FILNAM ,PA5 contains 

PROGRAM W0RK IP IT^0UT( INPUT* )| 

GETFIlEnAmE(TTY, FIL» PRoTf PPN, DEV, •SqmE«.FIlE •); 
RESET (SOME,^FILE, FIL, PROT, PPN, DEV); 

GETSTATUS (SOME«mFIlE» FIl# PROT, PPN, DEV) ; 
IF DEV a »DSK • 
THEN P 
ELSE Qf 

# • t 

the execution could be llfce 
,r filnam 

INPUT s dtandata,dat ^ 
« 

# 1 1 

SOME^FILE s other.dat C7, 7] 

# • i 
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5,7,12, RESET and REWRITE 



A file must be "opened" with the standard procedure RESET when It 
Is to be used for reading, it must be "opened" with the standard 
procedure rewrite when it Is to be used for writing, 

RESET and rewrite have the following parameter lists 

(<£ile variables <£ile name and extension^ <protection># 
<project«programmer number>, <devlce mnemonlo) 

Only the first parameter is required. The other parameters are 
optional and used as followsi 

<file name and extension> 

This parameter must be of type PACKED ARRAY J lUvS cjf CHAR, 

The f^ rst 6 c haracters ar eja&ajj as file nam*tfffii n&xl 3- 

cha^actjejrsjas iTle" elftenslon. The parameter Is used to 
overwrite~~tTTe--ctfrrelfrTf^^ to <flle variable> ( 

<prote/tion> 

This parameter must be of type INTEGER, It is not 
necessary for Input, if o is specified, the installation 
default value is taken (usually <057>), in octal 
representation this parameter may have values from 0..777B, 

Kpro/ect-programmer number> 

This parameter must be of type INTEGER, For the PPN 
"1023,7777" It would have the following form in octal 
representation! 10230077776, The job's PPN Is used if the 
value is or the parameter is missing, 

<dev/lce mnemonlo 

This parameter must be of type PACKED ARRAY (1..6J or char, 
It defines the device where the file resides, if this 
parameter is missing, # DSK ' is assumed. 

If this parameter is specified, new buffer space will be 
reserved at the first free location possibly after extension 
of the low segment by the monitor. Therefore the actual core 
requirement may grow during execution - potentially resulting 
in program termination due to Insufficient core. 

In the following example REWRITE is used to assign the actual file 
TEST.LST to the file variable OUTPUT, The file Is created with 
protection <055>, 

Examples 



REWRITE(OUTPUT,»TEST LST*,55B) 
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5,7,13, BREAK and MESSAGE 



The standard procedure BREAK is provided in order to force output 
even it the Internal buffer Is not yet full, BREAK itself does not 
insert a Carriage.Return/Llne.Feed when used with textfiles e,g, 
during output to the user terminal, This allows the user to type In 
on the same line where the output appeared. The line will be ended 
by a Carriage.Return/Line-Feed only if WRITELN(TTY) was used before 
the call of BREAK(TTY) or BREAK (because TTY is the default argument 

Of BREAK) , 

If another file identifier is indicated as argument to the 
standard procedure BREAK, output to the appropriate file will be 
enforced even if the output buffer is not yet full. This may be 
advantageous 1* a tile identifier r e * e rs to a eomput*r*computer 
communication channel as output device, if the file is situated n 
a directory device like DSK or DTA, the rest of the internal buffer 
is filled up with O's, Thus, when reading the file the user must 
be aware of these o's. 

The procedure 

MESSAGE ( <argument llst> ) 

is equivalent to 

WRITELN(TTY,) j WRITELNCTTY, <argUment list> )f BREAK(TTY) t ^ 



5,7,14, GETLN and GETLINENR 



These procedures are to be used exclusively for TEXT-files, 

The procedure 

GETLNC <Ule variable> ) 

first advances the file to the next Line-Feed, Then It assigns the 
first character of the next line to the variable <flle variables, 
If the T£XT»f lie contains DECSystem-10 standard line numbering and 
page marks C81, the new line number is placed into a dedicated 
location in the "file control block". 

The procedure 

GETLINENRC t<flle variables } <iine number> ) 

enables the user to "read" this line number. The number is assigned 
to the second parameter which must be a variable of type PACKED 
ARRAYtl , ,5 J OF CHAR, If the first parameter is omitted, INPUT is^) 
assumed, A page mark appears to the program as an empty line with no 
line number, In this case the value ' * is assigned to 
<llne number >, An additional GETLN is necessary to get the first 
relevant character of the next line. It no line numbering is 
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provided by the input file at all, GETlINEnR will return 
constantly, 

Examplei 

PROGRAM LINENUMBERSI 
VAR CHl CHARf 

LINE^NUMBERj PACKED ARRAYU,,5J OF CHAR; 

PAGE^NUMBERl INTEGER} 

PAGE. NUMBER is 1, 
GETLINENR(LINE.NUMBER) f 

nt 

IF EOLN 
THEN 
LOOP 
GETLN(INPUT) ) 
GETLINENR ( LINE^NUMBER ) 
EXIT IF EOF OR (LINE„ NUMBER <> ♦ *)> 

PAGE.NUMBER j = PAGE^NUMBER + 1 
ENO| 
1 1 1 



5,7,15, PUTLN and PAGE 



The procedure PUTLN( <£ile variabie> ) 
writes a Carriage-Return/Line-Feed to the output file. 
The procedure PAGE C( <file variabie> )j 

writes a carriage-Return/Form-Feed to the output file, The file 
variable roust be of type TEXT, If the parameter is defaulted, OUTPUT 
is assumed, 



5,7,16, EOF and EpLN 



The function EOF [( <file variable> )] 

returns the value TRUE if the user tries to read beyond the physical 
end of a file, otherwise FALSE is returned. The contents of 
<file variable>* is undefined if EOF is TRUE, input is assumed if 
the parameter is defaulted. 

If a Line-Feed has been encountered in the input file* a blank is 
assigned to <file variable>* and the function EOLN [( <file 
variable> )) returns TRUE otherwise FALSE is returned, INPUT is 
assumed if no argument is provided^ If the user does not care about 
lines, linenumbers and pagemarks in his file, he does not have to 
use GETLN or rEADLN to get the next line, GET or READ invoke GETLN 
if EOLN is TRUE, EOLN applies to TEXT-files only. 
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5,8, procedures and Functions as parameters 

(This feature was implemented in accordance to G,V,D, KRAATS, 
Technlsche Hogeschool Twente) 

in DECSystem-10-PASCAL it is necessary to declare the formal 
parameters of a formal procedure or function. An example may 
illustrate this! 



PROGRAM INTEGRATION} 

FUNCTION INTEGRATE ( FUNCTION F ( REAL ) I REAL} 

LOWBOUND, 
HIGHBOUND, 

DELTA_X l REAL ) I REALf 

VAR X#SUM t REALf 

BEGIN (^INTEGRATE*) 

(# ASSUME 1 LOWBOUND < HIGHBOUND AND DELTA— X > #) 
SUM fs Of 
X is LOWBOUND 1 
WHILE X < HIGHBOUND DO 
BEGIN 

SUM |a SUM + F(X) • DELTA„X, 
X |B X ♦ DELTA„X 
ENDf 

INTEGRATE fs SUM 
END (^INTEGRATE*) j 

FUNCTION SINUS (ARGUMENT I REAL) t REALf 

BEGIN (*SINUS#) 

SINUS 1= SIN(ARGUMENT) 
END (#SINU5*)| 

BEGIN (» INTEGRATION*) 

WRITELN( INTEGRATE (SINUS* 0, 3.14, 0,01) I 6 I 3) 
END (*INTEGRATIQN#), 



Note that 1 

a) at the declaration of »F B no identifier is required for the formal 
parameter of W F W , only the type(s) of the arsument(s) of formal 
procedures and functions must be specified* 

b) at a call no actual parameters must be specified for procedures 
and functions which serve as procedure/function parameters, 
(Obviouslyf a function which appears at the position of a value 
parameter must have parameters ,) 

The declaration of "formal formal parameters" is necessary for the 
compiler to check the actual procedure* and function* parameters with 
respect to their parameters and types. This avoids a considerable^ 
overhead of parameter* and type.checklng at runtime of a 
PASCAL-program, 
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The syntax of DECSystemMO-PASCAL is extended as follows! 

<proeedure heading> u = 

PROCEDURE <ldenttfier> t<formal parameterllst>i i 

<f unction heading> u = 

FUNCTION <ldentitier> Kformal parameteriist>l i 

<type identifier t 

<formal parameterlist> n = 

( <formal parametersection> t i <£ormal parametersection> )♦) 
<formal parametersection> j:= 

tVARJ <identifierlist> i <type identifiers I 

PROCEDURE <identif ierlist> Kformal formal parameter Hst>] I 

FUNCTION <identifierllst> t<formal formal parameterlist>j i 

<type identifier> 

<identi£ ierlist> u = 

<identi£ler> [ , <ldentifier> ]# 
<formal formal parameter list> its 

( <formal formal parametersection> 

t f <formal formal parametersectlon> ]* ) 
<formal formal parametersection> n = 

tVAR jl <type identifier> I 

PROCEDURE [<formal formal parameter llst>] I 

FUNCTION Kformal formal parameterlist>] i <type identified 



Important Notes? 



a) External procedures and functions which are not written in PASCAL 
must not be used as actual parameters to formal procedures or 
functions since they obey different parametereonventions t 

b) standard.procedures and -functions are not allowed as actual 
parameters to formal procedure and function parameters because 
most of them either 

#) have parameterllsts of variable length <e,g t WRITE) or 
*) have parameters of varying types (e,g, PUT) or 
#) are implemented as FORTRAN* or MACR010-subroutine s (e,g, SIN) 
or 

*) generate in-line code that cannot be passed as an actual 
parameter(e,g, PRED), 

In these cases one may declare a pASCAL*procedure which only calls 
the appropriate standard or external (non»PASCAL) procedure (as in 
the example above), 
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6, External Programs 

OECSystem»io PASCAL provides a facility to access external 
procedures and functions that exist outside the user program and 
have been separately compiled, This enables the PASCAL programmer 
to aecess program libraries, 



6,1, Declaration of External Procedures or Functions 



The declaration of such a procedure or function consists of a 
heading followed by the word extern or Fortran, Thus the 
procedure/function declaration is extended to the following: 

<proc,/func, d e ci,> :i= <proe,/fUnc, headings 

<proc,/func, bloefc>j 
<proc./func a bloek> us <bloek> or 

EXTERN or 

FORTRAN 



6,2, How to compile External Programs 

External programs must be compiled with the EXTERN-option, Th* 
statement part of an external program (usually referred to as "main 
program*} should only consist of 

BEGIN END 

because it cannot be executed if the program is compiled with the 
EXTERN. option , Example! 

PROGRAM MAIN | 

VAR R| REALf 

FUNCTION SINUS( X| REAL )t REALf EXTERN} 
BEGIN (» MAIN •) 

WRITE( TTY, 5INUS( R ) )| 

• t « 

END, 

(#$E+#) 

PROGRAM FUNCTIONS, SINUS, COSlNUS,,, 
FUNCTION SlNUS( ARG| REAL )l REAL} 

BEGIN (» SINUS ») 

t • • 

END) 

BEGIN (* FUNCTIONS ») 
END, 
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It Is also possible to can external FORTRAN subroutines, If the 
FORTRAN I/O-routlnes are needed, the calling PASCAL main program 
must be compiled with the FORTIO-option, 

Example t 

The program 

PROGRAM MAIN) 

PROCEDURE FQRPRQC ,,, )| FORTRAN! 

• • i 

END, 

must be compiled like 

.compile mainC f ortlo/runcoret 10 )/llst 
•compile forpro, for/list 
.load main, f orpro/map 

Notice that the FORTRAN i/O-routines require at least 6K of the 
high-segment core, 

Inside external PASCAL programs the standard file variables INPUT, 
OUTPUT and TTY are also pre. declared, They access the same files as 
they do in the PASCAL main program, 

A list of program parameters is ignored for external programs but 
on principle it is allowed to declare file variables in such 
programs. In this case the program must be compiled with the 
FTLEooption to guarantee a unique assignation of "data channels" to 
the files. If there are e.g. 3 files -except standard files* already 
declared in the ealling main program, the FILE-option has to be 
specified as 

/FILEJ4 

The value of the FILE-option -default !• must not be greater than 
12. 



6,3t How to Create a Program Library 



A program library containing the PEL-files of external PASCAL 
programs can be easily created just by providing a file containing 
the source code of all these programs to the compiler. The PASCAL 
compiler accepts a program library for compilation, 

<program llbrary> t:» <program> [<program>]« 
<program> n= <program neading> <block> , 

Other modules like FORTRAN subroutines or MACRO. 10 routines (such 
routines must correspond in their calling sequence either to the 
conventions for a PASCAL procedure or function or to those for a 
FORTRAN subroutine) can be added to the library with the 
FUDGE2-program t8l. 
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Each of the programs must start on a separate line because a 
READLN Is performed by the compiler when the program end has been 
encountered, A 

The E-option cannot be reset inside a program library, 
Examplet 

Let PROGLB.PAS contain 
(**£+*) 

PROGRAM PI, Ell, E12) 

BEGIN (* PI *) 
1 1 • 

END (# PI #) , 
PROGRAM P2, E21, E22| 

BEGIN (# P2 #) 

END*(# P2 #) t 

The program library Is created with 

•compile proglb( extern )/ilst 
PASCAL) PROGLB [Pit Ell , E12] 

PA5CALI PROGlB CP2t E21, E22] " 
tit 

The library can be examined and modified with the 
FUDGE2«program 

,r fudge2 

#ttyiaproglb,rei/ss 
PI Ell E12 

P2 E21 E22 

••C 

Now programs can be loaded in "library search mode 1 * like 

.compile fllnam/ilst 

( load filnam, /search proglb/map 
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7, The PASCAL DEBUG-system (10] 




The PASCAL DEBUG*system Is only accessible to programs which have 
been compiled with the DEBUG-option, The system can be used to set 
breakpoints at specified linenumbers. When a breakpoint is 
encountered, program execution is suspended and variables (using 
normal PASCAL notation) may be examined and new values may be 
assigned to them. Also additional breakpoints may be set or 
breakpoints may be cleared, it is heiptul to have a listing of the 
program available as the system is linenumber oriented. The program 
should be saved with w having a value of at least u m MS (see 
Section 1.3,), 



7,1. Commands 



The commands described here can be used when the system enters a 
breakpoint, when the program is executed It responds with an 

asterisk if input from TTY Is required. After a Carriage. Return has 
been typed, the initial breakpoint (set by the system) will be 
entered with the message 



where <line> is of the form linenumbir/pagenumber or Just linenumber 
which is equivalent to linenumber/l) • e t g,i 120/3 • , A maximum of 
20 breakpoints may be seKs^mul^neousi^^ 

The breakpoint is cleared by 



The breakpoints set may be listed by 
STOP LIST 

Variables may be examined by the command 
<variable> ■ 

<variabie> may be a n y variable as anowed by the PASCAL definition, 
in particular it may be Just a component of a structured variable or 
the whole structure itself. The but f ervariable FILNAM* connected 
with the file Identifier FILNAM as well as the file Identifier 
itself can be accessed, if the file identifier is examined, the 
contents of the "file control block" are given. 



SDEBUGi ^program name> 
8 



Additional breakpoints are set by 




STOP <llne> 



STOP NOT <llne> 
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The command CI 2} 

STACKDUMp ^ 

will generate a TExT»file with a source-level dump of the current 
stack content. It the DEBUG-option has been switched off locally in 
the program text, the error message "There is no information about 
this part of the program" may be output, similarly , the command 

HEAPDUMP 

will generate a TExT«file with a source-level dump of the current 
heap content* If the OEBUG-option has been switched off locally, the 
error messages "can # t continue the heap dump" or "type of referenced 
variable not known" might appear. After STACKDUMp or HEApDUMp the 
oebug-system outputs the message 

$L00K FOR DUMP ON FILE XXXXXX.PMD 

where XXXXXX is some fantasy name, 

A new value may be assigned to a variable by 

<variable> ja <variable or constant> 

The assignment follows the usual type rules of PASCAL* 

The currently active call sequence of procedures and functions I ^ 
obtained by 

TRACE 

The names of the procedures and functions together with line numbers 
of their activation are printed in reverse order of their 
activation, 

Program execution is continued by the command 
END 

The program will run until another breakpoint is encountered. The 
breakpoint is announced by 

SSTOP AT <line> 
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7,2, Program interrupts 



If a program •compiled with the DEBUG-option- is Interrupted by 
any run»time error (refer to 8,4,) or by 



the DEBUG-system Is usually automatically entered or -if not- It Is 
possible to (re*) enter the DEBUG-system with the monitor command 
DOT, The DEBUG-system outputs the message 

SSTOP BY RUNTIME ERROR In <program name> 

$STOP IN <llne>i<nne> 

$ 



SSTOP BY DDT command IN <program name> 

SSTOP in <line>}<ilne> 

$ 

If the program Is running In "batch m de«, the DEBUG-system is 
automatically entered and a post. Mortem dump Is generated. 



7,3, How to Debug External Programs 



If the main program and/or several external programs have been 
compiled with the DEBUG-opt ton, it is the loading sequence -the 
sequence in which the programs are specified In the LOAD-command- 
tnat indicates which program is to pe debugged* ONLY the first 
program in the loading sequence may be debugged provided it has been 
compiled with the DEBUG-option, 



•C*C 



Example! 



•LOAD MAIN, PI, P2 
•LOAD PI, MAIN, P2 



MAIN can be debugged 
now Pi can be debugged 
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8, Tables 

SS8SSSS88 

8,1, Operations 

8,1,1, summary 

Operator Operation 



Result Type 



+ (unary) Identity 


INTEGER or REAL 


same as 








operand 


• (unary) sign Inversion 








addition 




INTEGER or 








REAL 


• 


subtract i nn 






n 


mill tin 1 leat ion 






/ 


REAL division 




REAL 


DIV 


INTEGER dlv f 


INTEGER 


INTEGER 


MOO 


modulus 


INTEGER 












s 


equality 


any scalar* string. 


BOOLEAN 






SET or pointer 




<> 


inequality 






< 


less*than 


any scalar or string 




> 


greater-than 






<s 


less-equal, 


any scalar* string* 






set inclusion 


or SET 




>s 


greater-equal, 








set inclusion 






IN 


set membership 


1st op, scalar* 








2nd op, its SET type 












NOT 


negation 


BOOLEAN 


BOOLEAN 


OR 


disjunction 






AND 


conjunction 














♦ 


set union 


SET 


same type 




set difference 






• 


set Intersection 












1 = 


assignment 


any compatible types 


mmm 






except file types 





If both INTEGER and REAL values appear in expressions* the result 
type is always REAL, 
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1st + (unary) not 

• (unary) 



2nd 


MOD, DXVf 
*f / 


AND 


« 


3rd 


+ t • 


OR 




4th 


<# <a, 
<>, >, >= 


=# <t <=» 
<>» >, >» 


<s, >s, IN 



8,2, Reserved Words 

IF, DO, OF, TO, IN, OR, 

END, FOR, VAR, DIV, MOD, SET, AND, NOT, 

THEN, ELSE, WITH, GOTO, LOOP, CASE, TYPE, FILE, EXIT, 

BEGIN, UNTIL, WHILE, ARRAY, CONST, LABEL, 

EXTERN, RECORD, DOWNTO, PACKED, OTHERS, REPEAT, 

FORTRAN, FORWARD, PROGRAM, 

FUNCTION, 

PROCEDURE, SEGMENTED, 
INITPROCEDURE 
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8,3, Standard Procedures and Functions 



8,3,1, Procedures 



Procedures marked with (#) are also defined in PASCAL 6000-3,4, 
those marked with (##) only in DECSystemMO Pascal, The marked 
Procedures and functions are not Part of STANDARD PASCAL, 

input/output! 

RESET, REWRITE, GET, PUT, PAGE, READ, READLN, WRITE, WRITELn, 
MESSAGE (#)# GETLN (##), PUTLN (##), GETLINENR (##), 
BREAK (*») 

Execution controls 

HALT (*), CALL (»#) 

Allocation of Dynamic storage! 
NEW, DISPOSE (*) 

Communication with the Enviromenti 

DATE («)» TIME (#), GETFILENAME (#*), GETSTATUS (#*), 
GETOPTION (##) 



8,3,2, Functions 



Function Type of Argument(s) 

........ .-.STANDARD PASCAL--—---— 

ARCTAN INTEGER or REAL 

COS 

EXP 

LN 

SIN 

SORT 



Result Type 



REAL 



ABS 
SQR 

ROUND 
TRUNC 

ODD 

EOF 
EOLN 

PRED 
SUCC 

CHR 
ORD 



INTEGER 
any file 

TEXT 

any scalar except REAL 



INTEGER 

any scalar or Pointer 



INTEGER or REAL 



INTEGER 
INTEGER 



BOOLEAN 



argument type 



CHAR 
INTEGER 



TYMCOM.X PASCAL User's Manual 



•49 



CARD 

CLOCK 

EXPO 



Function Type of Argument(s) 

•••-••••••PASCAL 6000-3,4— ••••*••' 

any SET 
••• 

REAL 

-..-•«— ..DECSy stem- 10 PASCAL*--**-. 

ARCCOS INTEGER or REAL 

ARCSIN 

COSD 

COSH 

LOG 

RANDOM 
SIND 
SINH 
TANH 

REALTIME 
OPTION 

FIRST 
LA5T 

LOwERBOUND 
UPPERBOUND 

MIN 
MAX 



Result Type 



ALFA 

any scalar except REAL 
array 

any scalar except BOOLEAN 



INTEGER 



REAL 



0.0, .l t 

REAL 



INTEGER 
BOOLEAN 

argument type 
array index type 
scalar type 



If both INTEGER and REAL values appear in the argument list for 
MIN or MAX, the result type is REAL, 
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8,4, Run. time Error Messages 



The run-time error messages of the PASCAL run-time support have 
the general format 

%? <message text> AT USER PC <octal address> 

The following is a list of all run-time messages that might be 
output during execution of a PASCAL Program, 

Address Cheeks » 

POINTER OUT OF BOUNDS* CANNOT RETAIN VARIABLE 

HEAP OVERRUNS STACK | RETRY WITH MORE CORE 

NOT ENOUGH CORE TO READ TEMPCQRE-FILE <flle n*me> 

STACK OVERRUNS HEAP! RETRY WITH MORE CORE 

CORE REQUIREMENT GREATER THAN "CORMAx" 

ARRAY INDEX OUT OF BOUNDS 

DEBUG-systemi 

PROGRAMS COMPILED WITH THE DEBUG-OPTION MUST NOT BE SHARABLEl 

RETRY WITH .SAVE INSTEAD OF .SSAVE 
ILLEGAL MEMORY REFERENCE 
TIME LIMIT EXCEEDED 
DEBUG. SYSTEM ERRORi <err r n umber> 

Input/Output I 

INPUT ERRORl INVALID SCALAR SPECIFICATION *## <scalar> #** 
INPUT ERRORl SCALAR UNDEFINED OR OUT OF RANGE 

*»« <scaiar> #** 
INPUT ERRORS INVALID SET SPECIFICATION 

INPUT ERRORS SET ELEMENT SPECIFIED TWICE *»* <seaiar> #*# 
NO ACCESS TO OR NO DISK SPACE FOR FILE <file name>s 

ERROR IN REWRITE 
REWRITE FOR FILE <file n ame> REQUIRED 

INPUT ERRORl ATTEMPT TO READ BEYOND EOF OF <file name> 

INPUT ERRORl RESET REQUIRED FOR <file name> 

INPUT DATA ERROR IN FILE <flle name> 

SCALAR OUT OF RANGE IN FILE <flie na m e> 

OUTPUT ERRORS DISK SPACE EXHAUSTED FOR FILE <f ile name> 

Arithmetic Operationsi 

ARITHMETIC OVERFLOW OR ZERODIVIDE 

SCALAR OUT OF RANGE 

MORE THAN 72 SET ELEMENTS 

Program Parameters! 

NO ACCESS TO <file name> OR NOT FOUNDl REENTER 
SYNTAX ERROR! REENTER 

Program Executions 



CANNOT RUN <flle name> 
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8,5. ASCII Table 

The PASCAL character set (the type CHAR) is encircled in the 
following table. 










1 


2 


3 


4 


5 


6 


7 






00 


NuL 


SOH 


STX 


ETX 


EOT 


ENQ 


ACK 


BEL 






01 


BS 


HT 


LP 


VT 


FF 


CP 


SO 


SI 






02 


OLE 


DC1 


DC2 


DC3 


DC4 


MAK 


SYN 


ETB 






V J 


CAN 


EM 


SUB 


ESC 


FS 
» o 




RS 


US 
vo 




I 


04 


SP 


J 






$ 


% 


£ 


# 


I 


I 


OS 


( 


) 


« 


♦ 


# 


m 


■ 


/ 


I 


I 


06 





1 


2 


3 


4 


5 


6 


7 


I 


I 


07 


8 


9 


1 


1 


< 




> 


? 


I 


I 


to 


§ 


A 


B 


C 


D 


E 


F 


G 


I 


I 


U 


H 


I 


J 


K 


L 


M 


N 





I 


I 


12 


P 


Q 


R 


S 


T 


U 


V 


w 


I 


I 


13 


X 


Y 


Z 


C 


\ 


1 


m 




I 




14 


« 


a 


b 


c 


d 


e 


t 


9 






15 


h 


i 


j 


K 


1 


m 


n 









16 


P 




r 


S 


t 


u 


V 


w 






17 


X 


y 


« 


< 


1 






DEL 
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9, Miscellaneous 

9,1, Implementation Restrictions 

(a) A maximum of 12 tiles may be declared by the user* 

Cb) Arrays of files and records with files a s components a re not 
Implemented, 

(c) Segmented files are not Implemented, 

(d) call of external COBOL or ALGOL procedures or functions are not 
Implemented, 

(e) A SET may contain a maximum of 72 elements of scalar or 
subrange types -except REAL- , Thus, sets of ASCII or INTEGER 
a r e not possible. Only subranges consisting of not more than 72 
values are allowed (e.g. CHAR) , The following rules are 
valid for these subrangesi 

Range Type Restriction 

ASCII or ORD(FIRST(<subrange>)) >* 40B and 

CHAR ORD(LAST(<subrange>) ) <a 147B 

other ORD(FIRST(<subrange>j ) >a o and 

ORD(LAST(<subrange>) ) <= 71 

(f) A range of SET-elements In a set must be given using constant 
bounds only (no expression as bound is allowed)* 

(g) no explicit runtime check for NIL as polntervalue is performed 
yet. 



9,2, Known Bugs 



(a) Comparison of entire variables of type PACKED RECORD or PACKED 
ARRRAY may cause errors if these variables a re used with a 
variant part, 

(b) Alphabetical ordering of PACKED ARRAY Cl,,n] OF CHAR may result 
in a different ordering from that obtained with the same 
character seguences represented simply as array Cl, t n] OF char, 
(This is due to the fact that the most significant bit of the 
first character in a word represents the sign bit during the^ 
arithmetic word.compare used for PACKED ARRAY"s whereas it has ' 
no such influence for ARRAY tl,,n] OF CHAR which are compared 
character by character). 
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9,3, Utility Programs 



CROSS is a program which formats a PASCAL program, produces a 
cross-reference list of identifiers, indicates the nesting of 
statements and reports the static nesting of procedures. The program 
can be executed once by providing the CREF-option in the 
COMPXLE-command, 

.COMPILE FILNAM/CREF 

The program then will create the newly formatted source file on 
FILNAM ,new and the cross-reference list on FILNAM.CRL, 

Another way is to execute CPOSS directly with 

,R CROSS [<eore assignments 

Now, like PASCAL does if executed directly, the program asks for t n e 
names of the following fliest 



OLDSOURCE s fllnam.pas 
NEWSOURCE = filnam.new 
CR0SSLI5T s flinam.crl 



old source code 
formatted source code 
cross-reference list 
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